home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspsrcdr.arc / DSPSRCDR.CLP next >
Text File  |  1991-12-04  |  2KB  |  45 lines
  1.  /* (C) - Copyright 1988 by Shaw-Barton, Inc., Coshocton, OH 43812   */
  2.  /*                                                                  */
  3.  /* TITLE:        DSPSRCDIR1 (CLP)                                   */
  4.  /* AUTHOR:       Joseph L. Bolen                                    */
  5.  /* DATE WRITTEN: August 1988                                        */
  6.  /*                                                                  */
  7.  /* DESCRIPTION:  CPP for DSPSRCDIR (CMD).                           */
  8.  /*               Selective reformat of DSPFD TYPE(*MBRLIST)         */
  9.  /*                                                                  */
  10.  /* CALLED BY:    DSPSRCDIR (CMD)                                    */
  11.  /* CALLS:        DSPSRCDIR2 (RPG)                                   */
  12.  /*                                                                  */
  13.  DSPSRCDIR1: PGM        PARM(&TYPE &MBR &FILE &OUTPUT)
  14.              DCL        VAR(&MBR) TYPE(*CHAR) LEN(10)
  15.              DCL        VAR(&FILE) TYPE(*CHAR) LEN(20)
  16.              DCL        VAR(&TYPE) TYPE(*CHAR) LEN(5)
  17.              DCL        VAR(&TYP4) TYPE(*CHAR) LEN(4)
  18.              DCL        VAR(&OUTPUT) TYPE(*LGL) LEN(1)
  19.              MONMSG     MSGID(CPF0000) EXEC(GOTO ENDPGM)
  20.  
  21.              DSPFD      FILE(%SST(&FILE 01 10).%SST(&FILE 11 10)) +
  22.                           TYPE(*MBRLIST) OUTPUT(*NONE) +
  23.                           OUTFILE(VTOC.QTEMP)
  24.              IF         (*NOT &OUTPUT) DO
  25.              OVRPRTF    FILE(DSPSRCDR) HOLD(*YES)
  26.              ENDDO
  27.  
  28.              OVRDBF     FILE(QAFDMBRL) TOFILE(VTOC.QTEMP) +
  29.                           SEQONLY(*YES 96)
  30.  
  31.              CHGVAR     VAR(&TYP4) VALUE(%SST(&TYPE 02 04))
  32.  CALL:       CALL       PGM(DSPSRCDIR2) PARM(&TYP4 &MBR)
  33.  
  34.              DLTF       VTOC.QTEMP
  35.  
  36.  OUTPUT:     IF         (*NOT &OUTPUT) DO
  37.              DSPSPLF    FILE(DSPSRCDR) SPLNBR(*LAST)
  38.              CNLSPLF    FILE(DSPSRCDR) SPLNBR(*LAST)
  39.              ENDDO
  40.  
  41.              GOTO       ENDPGM
  42.  
  43.  ENDPGM:     CHGJOB     SWS(00000000)
  44.              ENDPGM
  45.